home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagd_f.zip / DATETIME.SWG / 0011_DAYSOFWK.PAS.pas < prev    next >
Pascal/Delphi Source File  |  1993-05-28  |  659b  |  36 lines
  1. {
  2. SEAN PALMER
  3.  
  4. > This is kinda primative, but it will work, and hopefully if
  5. > someone else has a more elegant way of testing a set, they
  6. > will jump in
  7. }
  8.  
  9. Uses
  10.   Crt;
  11. Type
  12.   days = (Sun, Mon, Tue, Wed, Thu, Fri, Sat);
  13.  
  14. Var
  15.   d : days;
  16.  
  17. Const
  18.   fullWeek  : set of days = [Sun..Sat];
  19.   weekend   : set of days = [Sun, Sat];
  20.   weekDays  : set of days = [Mon..Fri];
  21.   weekChars : Array[days] of Char = ('S','M','T','W','T','F','S');
  22.  
  23. begin
  24.   Writeln;
  25.   For d := Sun to Sat do
  26.   begin
  27.     if d in weekDays then
  28.       TextAttr := 14
  29.     else
  30.       TextAttr := 7;
  31.     Write(weekChars[d]);
  32.   end;
  33.   Writeln;
  34.   TextAttr := 7;
  35. end.
  36.